OpenEdge Development:<br />Programming Interfaces isDBOnAppServer function

Release 10.1A: OpenEdge Development:
Programming Interfaces

isDBOnAppServer function

Check if the database specified by a given database information string is on the AppServer. If we are running a WebClient session, this is always the case, so it will always return true for the WebClient. The database information string is returned by the get-complete-dbname-list procedure, get-dbname-list procedure, and src/auditing/_get-db-list.p.
Returns: LOGICAL
Parameters:
INPUT pcDbInfo AS CHARACTER
Database information string.
Example:
Define variable cList as char. 
Define variable cdbInfo as char. 
Define variable iLoop as int. 
Define variable cTemp as char. 
{auditing/include/_aud-utils.i} 
Run get-dbname-list IN hAuditUtils (output cList). 
DO iLoop = 1 TO NUM-ENTRIES(cList, CHR(1)): 
           ASSIGN cdbInfo = ENTRY(iLoop, cList, CHR(1)) 
                         cTemp = DYNAMIC-FUNCTION('get-DB-Name' 
IN  hAuditUtils, cdbInfo). 
                   IF DYNAMIC-FUNCTION('isDbOnAppServer' IN  hAuditUtils, 
cDbInfo)  THEN 
                        Message "Database " cTemp "  is not local". 
End. 